home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / FLEX.TYPE.SHK / FLEX.TYPE / UPPER AND LOWER CASE.bas < prev    next >
BASIC Source File  |  2000-01-01  |  942b  |  14 lines
  1. 5  & 
  2. 10  REM UPPER AND LOWER CASE DEMO PROGRAM (WITH OVERSTRIKE)
  3. 15  REM  SET UP CTRL H, O, T & Z
  4. 20 H$ =  CHR$(8):O$ =  CHR$(15):T$ =  CHR$(20):Z$ =  CHR$(26)
  5. 25  PRINT T$"1": HOME : VTAB 5
  6. 30  PRINT "BY NOW YOU'VE NOTICED THAT ";:X$ = "CAPS ON": GOSUB 1000: PRINT " IS THE DEFAULT FOR FLEX TYPE."
  7. 35  PRINT 
  8. 40  PRINT "HOWEVER, TO CHANGE THE DEFAULT TO ";:X$ = "CAPS OFF": GOSUB 1000: PRINT " ALL YOU NEED TO DO IS TYPE": PRINT "CONTROL-A."
  9. 45  PRINT : PRINT "wasn't that easy!": PRINT 
  10. 50  PRINT "Oh yes. You can capitalize any letter by typing": PRINT "another Control-A. (Or use your shift key if you have made the": PRINT "SHIFT KEY MODIFICATION to your Apple.)"
  11. 55  PRINT : PRINT "AND TO CHANGE THE DEFAULT BACK TO ";:X$ = "CAPS ON": GOSUB 1000: PRINT " TYPE TWO CONSECUTIVE": PRINT "CONTROL-A'S."
  12. 60  END 
  13. 1000  REM UNDERSCORE ROUTINE
  14. 1010  PRINT O$;: FOR I = 1 TO  LEN(X$): PRINT  MID$ (X$,I,1);H$;Z$;"O";: NEXT : PRINT O$;: RETURN